(url-http-parse-headers): Don't reuse connection if "Connection: close" header

was seen.

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index c401094593e42ecceb8d89bfb936e59f6408ac61..45bf97ec6b607711eaa9ca0221c166a74aa2cb80 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -386,6 +386,10 @@ should be shown to the user."
   (url-http-parse-response)
   (mail-narrow-to-head)
   ;;(narrow-to-region (point-min) url-http-end-of-headers)
+  (let ((connection (mail-fetch-field "Connection")))
+    (if (and connection
+            (string= (downcase connection) "close"))
+       (delete-process url-http-process)))
   (let ((class nil)
        (success nil))
     (setq class (/ url-http-response-status 100))